﻿Public Class AnimationVulkanAusbruch
    Inherits ObjektAnimation
    Const HalteFrame As Integer = 2
    Dim Zähler As Integer = 0
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean)
        MyBase.New(True, ObjektSpielfeld.Bodenschlacht)
        P.X = X
        P.Y = Y
        Frames = 9
        BildID = LoadTextur("VulkanAusbruch", Frames)
        If Musikspielen = True Then
            '    MusikEngine.LoadWav(My.Settings.Resourcenpfad + "Sound\Explosion+Bombe.wav", False)
        End If
    End Sub

    Public Overrides Function Malen(ByVal intColor As System.Drawing.Color, Optional ByVal Zoomfaktor As Single = 1.0) As Boolean
        Dim sngRotation As Double = 0
        Dim T As Textur = Texturen(BildID)
        With Grafikengine.recBild
            .X = T.EinzelbildGröße.Width * Frame : .Width = T.EinzelbildGröße.Width
            .Y = 0 : .Height = T.EinzelbildGröße.Height
        End With
        Grafikengine.ptfPosition = New Drawing.Point(Hauptmenü.Feldbreite * P.X + Objektverwalter.Spielfeld.BildschirmKooX - 6, Hauptmenü.Feldbreite * P.Y + Objektverwalter.Spielfeld.BildschirmKooY - 61 - Hauptmenü.Feldbreite - 13)
        Grafikengine.szfScale = Nothing
        Grafikengine.ptfRotCenter = Nothing
        Grafikengine.Sprite.Draw2D(T.TexturBild, Grafikengine.recBild, Grafikengine.szfScale, Grafikengine.ptfRotCenter, sngRotation, Grafikengine.ptfPosition, intColor)
        
        If HalteFrame <= Zähler Then
            Frame += 1
            Zähler = 0
        Else
            Zähler += 1
        End If

        If Frame >= Frames Then
            Return False
        Else
            Return True
        End If

    End Function
End Class
